home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
clipper
/
hlpsy203.zip
/
MAKETEST.PRG
< prev
next >
Wrap
Text File
|
1994-03-10
|
1KB
|
35 lines
* For normal .DBF and .NTX testing, leave both comment sections below
* commented
*
#define TOTAL_RECORDS 100
FIELD Field1, Field2, Field3 IN Test
LOCAL nCount
* * * * FOR COMIX * * * * * * * *
* REQUEST DBFCMX // Force a link to FlexFile
* RDDSETDEFAULT("DBFCMX") // Set the Default RDD to Comix
* * * * FOR FLEXFILE* * * * * * *
* REQUEST FLEXFILE // Force a link to FlexFile
* RDDSETDEFAULT("FLEXFILE") // Set the Default RDD to FlexFile
* * * * * * * * * * * * * * * * *
* V_SUPERRDD("DBFCMX") // Set COMIX on top of FlexFile
* * * * * * * * * * * * * * * * *
* Create a Test database
DBCREATE("TEST", {{"Field1","C",10,0},{"Field2","C",10,0},;
{"Field3","C",10,0},{"Field4","C",10,0}},)
USE Test // Open Database in Single User Mode
INDEX ON UPPER(Field1) TO Test1 // Create Index 1
INDEX ON UPPER(Field2) TO Test2 // Create Index 2
INDEX ON UPPER(Field3) TO Test3 // Create Index 3
USE Test INDEX Test1,Test2,Test3 // Open Database and indexes
FOR nCount := 1 TO TOTAL_RECORDS // Loop for creating records
APPEND BLANK // Add a blank record
Field1 := STR(nCount) // Make dummy field assignments
Field2 := "Field2"
Field3 := "Field3"
NEXT nCount // End of Loop
USE // Close Database and End